0 POKE53272,21:POKE53280,0:POKE53281,0:PRINT"[152]":POKE808,234
500 PRINT"[147]"SPC(11)"*** ESP TEST ***
510 [153]"THIS PROGRAM TESTS ONE VARIETY OF
520 PRINT"EXTRA-SENSORY PERCEPTION: THE ABILITY TOPREDICT FUTURE EVENTS.
530 [153]"I WILL SELECT ONE OF FIVE SYMBOLS
540 PRINT"RANDOMLY BUT WILL NOT DISCLOSE IT UNTIL
550 [153]"YOU HAVE RECORDED YOUR PREDICTION.
560 PRINT"THE FIVE SYMBOLS ARE DIAMOND, PARALLELS,"
570 PRINT"[145]CROSS, TRIANGLE, AND SQUARE.
580 [153]"SKETCH THEM ON A PIECE OF PAPER OR
590 PRINT"REMEMBER THE WORD 'DEPICTS', WHICH HAS
600 [153]"THE INITIAL CONSONANTS IN ORDER.
605 HC=0:CC=0
610 PRINT"DO YOU WISH TO SEE THE SYMBOLS BEFORE
620 [153]"STARTING? PRESS 'Y' FOR YES, 'N' FOR NO.
630 INPUT Y$: IF Y$="Y" THEN F=1:GOTO1500
640 IF Y$="N" THEN 650
645 PRINT" WRONG KEY: TRY AGAIN.": GOTO 630
650 PRINT"HOW MANY TRIALS DO YOU WISH TO MAKE? I
660 [153]"SUGGEST A MINIMUM OF 25 FOR STATISTICAL SIGNIFICANCE.
670 INPUT N1
680 PRINT"OK. ENTER YOUR SELECTION (D,P,C,T,OR S)": GOTO 690
685 PRINT"ENTER YOUR NEXT SELECTION (D,P,T,C,OR S)
690 [133] G$:[139] G$[178]"D" [167] G[178]1:[137] 1000
700 [139] G$[178]"P" [167] G[178]2:[137] 1000
710 [139] G$[178]"C" [167] G[178]3:[137] 1000
720 [139] G$[178]"T" [167] G[178]4:[137]1000
730 [139] G$[178]"S" [167] G[178]5:[137] 1000
740 [153]"WRONG KEY: TRY AGAIN.": [137] 690
1000 D[178][181]([187](5)[172]5)[170]1
1020 [139] D[178]1 [137] 1070
1030 [139] D[178]2 [137] 1170
1040 [139] D[178]3 [137] 1200
1050 [139] D[178]4 [137] 1290
1060 [139] D[178]5 [137] 1400
1065 [144]: [143]: TEMP
1070 [153]"LOAD"[166]19)"STEP(null)
1080 PRINTSPC(18)"[169][146][169][223][223]
1090 [153][166]17)"STEPWAITSTEP  (null)(null)
1100 PRINTSPC(16)"[169][146][169]    [223][223]
1110 [153][166]15)"STEPWAITSTEP      (null)(null)
1120 PRINTSPC(15)"[223][223][146]      [169][146][169]
1130 [153][166]16)"(null)(null)WAIT    STEPWAITSTEP
1140 PRINTSPC(17)"[223][223][146]  [169][146][169]
1150 [153][166]18)"(null)(null)STEPWAITSTEP
1160 PRINTSPC(19)"[223][169]
1165 [153]"PRINT#":[139] F[178]1 [167] 1520
1166 [137] 1600
1170 [153]"LOAD"[166]15)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSR
1180 PRINTSPC(15)"[175][175][175][175][175][175][175][175][175][175]
1190 [153]"PRINT#":[139] F[178]1 [167] 1520
1191 [137] 1600
1200 [153]"LOADFOR"[166]19)" "
1210 [153][166]19)" "
1220 [153][166]19)" "
1230 [153][166]15)"NEWNEWNEWNEW WAITNEWNEWNEWNEW"
1240 [153][166]15)"FREFREFREFRECLOSEWAITFREFREFREFRE"
1250 [153][166]19)" "
1260 [153][166]19)" "
1270 [153][166]19)" "
1280 [153]"PRINT#":[139] F[178]1 [167] 1520
1281 [137] 1600
1290 [153]"LOADVERIFY"[166]19)"STEP(null)
1300 PRINTSPC(18)"[169][146][169][223][223]
1310 [153][166]17)"STEPWAITSTEP  (null)(null)
1320 PRINTSPC(16)"[169][146][169]    [223][223]
1330 [153][166]15)"STEPWAITSTEP      (null)(null)
1340 PRINTSPC(14)"[169][146][169]        [223][223]
1350 [153][166]14)"ANDANDANDANDANDANDANDANDANDANDANDAND
1360 PRINT"[152]":IF F=1 THEN 1520
1361 GOTO1600
1400 PRINT"[147]"SPC(16)"[183][183][183][183][183][183][183][183]
1410 [129] W[178]1[164]6:[153][166]16)" WAIT       "
1420 [130] W
1430 [153][166]16)"ANDANDANDANDANDANDANDAND
1440 PRINT"[152]":IF F=1 THEN 1520
1441 GOTO 1600
1500 FOR K=1 TO 5
1501 D=K
1505 T=TI: GOTO1020
1520 IF TI<>T+120 THEN 1520
1530 T=TI
1535 NEXT K
1540 F=0: GOTO 650
1600 CC=CC+1
1610 IF G=D THEN HC=HC+1: PRINT"RIGHT!";: GOTO 1630
1620 PRINT"WRONG. ";
1630 PRINTHC"CORRECT OUT OF"CC"TRIALS."
1640 IF CC=N1 GOTO1710
1700 GOTO685
1710 PRINT"YOUR PREDICTIONS WERE"HC/CC*100"% CORRECT.
1720 [153]"CHANCE RESULTS WOULD GIVE 20% CORRECT.
1730 PRINT"YOUR PREDICTIONS HAD A CRITICAL RATIO OF";
1740 PRINT(5*HC-N1)/(2*SQR(N1))"STANDARD DEVIATIONS."
1750 PRINT"A FIGURE GREATER THAN +2.7 S.D. WOULD BE";
1760 PRINT"SIGNIFICANTLY HIGH FOR A RUN OF 25 OR   MORE."
1770 PRINT"ANOTHER RUN? ('Y' OR 'N')";
1775 INPUT Y$
1780 IF Y$="Y" GOTO 605
1790 IF Y$= "N" GOTO 1810
1800 PRINT"WRONG KEY: TRY AGAIN": GOTO 1775
1810 PRINT"OK. IT'S BEEN A PLEASURE TO COMPUTE FOR"
1820 PRINT"YOU. TRY ME AGAIN SOON!"